home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / tbasic.arc / AND2 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  183 lines
  1. 0 REM ADD(SEPT 27/84)
  2. 1 :
  3. 2 REM 1 STATEMENT, 0 FUNTIONS
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS:3
  6. 5 :
  7. 6 REM KEWORD ROUTINE LINE SER#
  8. 7 REM ADD    XADD    4474 055
  9. 8 :
  10. 9 REM E/IO RTNS(39/056)
  11. 10 :
  12. 11 REM ==============================
  13. 12 :
  14. 39 SETLFS = $FFBA
  15. 40 SETNAM = $FFBD
  16. 41 OPEN   = $FFC0
  17. 42 CHKIN  = $FFC6
  18. 43 CLOSE  = $FFC3
  19. 44 CLRCHN = $FFCC
  20. 45 GETIN  = $FFE4
  21. 114 .ASC "AD[196]"
  22. 1114 .WORD XADD-1
  23. 4474 XADD JSR $AD9E
  24. 4476 JSR $B6A3
  25. 4478 STA T3
  26. 4480 TXA
  27. 4482 PHA
  28. 4484 TYA
  29. 4486 PHA
  30. 4488 LDA T3
  31. 4490 JSR $B47D
  32. 4492 TAX
  33. 4494 BNE XA1
  34. 4496 JMP $AF08
  35. 4498 XA1 CLC
  36. 4500 ADC #2
  37. 4502 STA T3
  38. 4504 JSR $B47D
  39. 4506 TAY
  40. 4508 PLA
  41. 4510 STA $23
  42. 4512 PLA
  43. 4514 STA $22
  44. 4516 DEY
  45. 4518 LDA #"P"
  46. 4520 STA ($62),Y
  47. 4522 DEY
  48. 4524 LDA #","
  49. 4526 LDA ($62),Y
  50. 4528 XA2 DEY
  51. 4530 BMI XA3
  52. 4532 LDA ($22),Y
  53. 4534 STA ($62),Y
  54. 4536 BNE XA2
  55. 4538 XA3 LDA T3
  56. 4540 LDX $62
  57. 4542 LDY $63
  58. 4544 JSR SETNAM
  59. 4546 JSR $79
  60. 4548 BEQ XA4
  61. 4550 JSR $AEFD
  62. 4552 JSR $B79E
  63. 4554 .BYTE $2C
  64. 4556 XA4 LDX #8
  65. 4558 LDA #$63
  66. 4560 TAY
  67. 4562 JSR SETLFS
  68. 4564 JSR OPEN
  69. 4566 LDX #$63
  70. 4568 JSR CHKIN
  71. 4570 JSR DSKGET
  72. 4572 JSR DSKGET
  73. 4574 XA5 JSR DSKGET
  74. 4578 JSR DSKGET
  75. 4580 BNE XA7
  76. 4582 JSR CLSCLR
  77. 4584 JSR $A659
  78. 4586 JMP $E386
  79. 4590 XA7 JSR DSKGET
  80. 4592 STA $14
  81. 4594 JSR DSKGET
  82. 4596 STA $15
  83. 4598 LDY #0
  84. 4600 XA8 JSR DSKGET
  85. 4602 STA $200,Y
  86. 4604 BEQ XA9
  87. 4606 INY
  88. 4608 BNE XA8
  89. 4610 XA9 TYA
  90. 4612 CLC
  91. 4614 ADC #5
  92. 4616 STA $0B
  93. 4618 JSR $A613
  94. 4620 BCC XA13
  95. 4622 LDY #1
  96. 4624 LDA ($5F),Y
  97. 4626 STA $23
  98. 4628 LDA $2D
  99. 4630 STA $22
  100. 4632 LDA $60
  101. 4634 STA $25
  102. 4636 LDA $5F
  103. 4638 DEY
  104. 4640 SBC ($5F),Y
  105. 4642 CLC
  106. 4644 ADC $2D
  107. 4646 STA $2D
  108. 4648 STA $24
  109. 4650 LDA $2E
  110. 4652 ADC #$FF
  111. 4654 STA $2E
  112. 4656 SBC $60
  113. 4658 TAX
  114. 4660 SEC
  115. 4662 XA10 BCC XA5
  116. 4664 LDA $5F
  117. 4666 SBC $2D
  118. 4668 TAY
  119. 4670 BCS XA11
  120. 4672 INX
  121. 4674 DEC $25
  122. 4676 XA11 CLC
  123. 4678 ADC $22
  124. 4680 BCC XA12
  125. 4682 DEC $23
  126. 4684 CLC
  127. 4686 XA12 LDA ($22),Y
  128. 4688 STA ($24),Y
  129. 4690 INY
  130. 4692 BNE XA12
  131. 4694 INC $23
  132. 4696 INC $25
  133. 4698 DEX
  134. 4700 BNE XA12
  135. 4702 XA13 JSR $A663
  136. 4704 JSR $A533
  137. 4706 CLC
  138. 4708 LDA $2D
  139. 4710 STA $5A
  140. 4712 ADC $0B
  141. 4714 STA $58
  142. 4716 LDY $2E
  143. 4718 STY $5B
  144. 4720 BCC XA14
  145. 4722 INY
  146. 4724 XA14 STY $59
  147. 4726 JSR $A3B8
  148. 4728 LDA $14
  149. 4730 LDY $15
  150. 4732 STA $1FE
  151. 4734 STY $1FF
  152. 4736 LDA #31
  153. 4738 LDY #32
  154. 4740 STA $2D
  155. 4742 STY $2E
  156. 4744 LDY $0B
  157. 4746 DEY
  158. 4748 XA15 LDA $01FC,Y
  159. 4750 STA ($5F),Y
  160. 4752 DEY
  161. 4754 BPL XA15
  162. 4756 JSR $A663
  163. 4758 JSR $A533
  164. 4760 CLC
  165. 4762 BCC XA10
  166. 4766 DSKGET JSR GETIN
  167. 4768 PHA
  168. 4770 LDA $90
  169. 4772 AND #$BF
  170. 4774 BNE DKG1
  171. 4776 PLA
  172. 4778 RTS
  173. 4780 DKG1 JSR CLSCLR
  174. 4782 LDX #$1D
  175. 4784 LDA #<MRGERR
  176. 4786 STA $22
  177. 4788 LDA #>MRGERR
  178. 4790 JMP $A445
  179. 4794 MRGERR .ASC "MERG[197]"
  180. 4798 CLSCLR LDA #$63
  181. 4800 JSR CLOSE
  182. 4802 JMP CLRCHN
  183.